maxstat<-function(x,...)
 UseMethod("maxstat")
